home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga News 95
/
Amiga News 95.iso
/
dpat
/
dpat27
/
afont
/
amiga2pc.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-02-20
|
960b
|
50 lines
/*
* Convertion Amiga -> DPaint PC
* Version 1.00 par Denis GOUNELLE
* Utilisation : rx Amiga2Pc <nom police Amiga> <nom police DPaint PC>
*/
OPTIONS RESULTS
/* examine les arguments */
PARSE ARG source dest
IF LENGTH( dest ) = 0 THEN DO
SAY "Usage: rx Amiga2Pc <nom Amiga> <nom DPaint PC>"
EXIT 10
END
/* accède au port AREXX de AFont */
IF ~ SHOW( 'P' , 'AFont_rexx' ) THEN DO
SAY "Vous devez lancer AFont pour utiliser ce programme"
EXIT 10
END
ADDRESS "AFont_rexx"
/* chargement police Amiga */
SAY "Chargement de la police Amiga..."
"SET PCFONT 0"
"OPEN "source
IF RC = 10
THEN DO
SAY "Impossible d'ouvrir la police !"
EXIT 10
END
"GET XSIZE"
SAY "Taille en X = "RESULT
"GET YSIZE"
SAY "Taille en Y = "RESULT
/* passage format DPaint PC */
"SET PCFONT 1"
SAY "Sauvegarde au format DPaint PC..."
"SAVEAS "dest
IF RC = 10
THEN DO
SAY "Impossible de sauver la police !"
EXIT 10
END
SAY "Terminé !"